home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_tkcvs.idb / usr / freeware / lib / tkcvs / errors.tcl.z / errors.tcl
Encoding:
Text File  |  1999-04-16  |  575 b   |  41 lines
  1. #
  2. # TCL Library
  3. #
  4.  
  5. #
  6. # $Id: errors.tcl,v 1.2 1995/02/23 05:10:34 del Exp $
  7. #
  8. # Procedures for unimplemented procedures. and error messages used by
  9. # TkCVS.
  10. #
  11.  
  12. proc notyet {} {
  13.  
  14. set mess {This is not implemented yet.  
  15.  
  16. Please try again in a later version.  
  17.  
  18. TTFN.  
  19.  
  20. Del}
  21.  
  22.   set title {Not Implemented Yet!}
  23.  
  24.   tk_dialog .notyet $title $mess error 0 {Bye Bye}
  25. }
  26.  
  27. proc cvsfail {mess} {
  28.  
  29.   set title {Not Found!}
  30.  
  31.   tk_dialog .notyet $title $mess warning 0 {Bye Bye}
  32. }
  33.  
  34. proc cvserror {mess} {
  35.  
  36.   set title {tkCVS Error!}
  37.  
  38.   tk_dialog .notyet $title $mess error 0 {Bye Bye}
  39. }
  40.  
  41.